home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 41 / 041.d81 / color select (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  5KB  |  158 lines
  1. 6 print"[147]"
  2. 10 ifpeek(788)=49 and peek(789)=234 anda=0 then a=1:load"raster/irq 3.0.o",8,1
  3. 15 poke53280,0:poke53281,0
  4. 16 poke53274,0
  5. 20 gosub 1000
  6. 21 poke253,5
  7. 22 poke254,146:v(2)=bo:v(3)=te:v(1)=bk
  8. 23 poke251,bk:poke252,bo:poke646,te
  9. 30 sys32768:print"[147]":gosub40:gosub48:gosub50:gosub64:goto70
  10. 40 poke646,v(3):print"             [195][207][204][207][210] [211][197][204][197][195][212]
  11. 41 [153]"             tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  12. 42 print"  [212]his portion of [195][213][211][212][207][205][201][218][201][206][199] [204][207][193][196][211][212][193][210]
  13. 43 [153]" is optional.  (NULL)ou may select the color
  14. 44 print" for the border, screen and the text
  15. 45 [153]" to fit your taste.  asceel free to
  16. 46 print" change this as often as you wish or
  17. 47 [153]"closeneed to.":[142]
  18. 48 [153]""
  19. 49 [151]646,v(2):[153]"                                        wait";:[142]
  20. 50 [153]"listortantantantantantantantantantantantantantantantantantan^ortantantantantantantantantantantantantantantantantantan^";
  21. 51 [153]"list(NULL) list(NULL)(NULL)   right$(NULL)(NULL)(NULL)(NULL)(NULL)len(NULL)right$(NULL)(NULL)(NULL)   list(NULL)";
  22. 52 [153]"list(NULL)thento  open clr   sys for verify def poke print# print cont list wait list(NULL)(NULL)  print# tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(   list(NULL)";
  23. 53 [153]"list(NULL) list(NULL)(NULL) len(NULL)(NULL)(NULL) keys select list(NULL)";
  24. 54 [153]"list(NULL) list(NULL)(NULL)                  list(NULL)";
  25. 55 [153]"list(NULL)thento  open clr   sys for verify def poke print# print cont list wait list(NULL)(NULL) (NULL)(NULL)/str$(NULL)(NULL)(NULL) :     close  list(NULL)";
  26. 56 [153]"list(NULL)list(NULL)(NULL)  (NULL)oves index box list(NULL)";
  27. 57 [153]"list(NULL)list(NULL)(NULL)                  list(NULL)";
  28. 58 [153]"list(NULL)thento  open clr   sys for verify def poke print# print cont list wait list(NULL)(NULL) (NULL)right$chr$left$(NULL)/(NULL)valasc(NULL) :     list(NULL)";
  29. 59 [153]"list(NULL)list(NULL)(NULL)  (NULL)elects color   list(NULL)";
  30. 60 [153]"list(NULL)list(NULL)(NULL)  for that box    list(NULL)";
  31. 61 [153]"list(NULL)                  list(NULL)(NULL)                  list(NULL)";
  32. 62 [153]"list/tantantantantantantantantantantantantantantantantantanexp/tantantantantantantantantantantantantantantantantantan"
  33. 63 [151]2023,125:[151]56295,15:p$[178]"":[142]
  34. 64 a$(1)[178]"  (NULL)len(NULL)valval(NULL) len(NULL)(NULL)(NULL)(NULL)  ":p(1)[178]1626:r(1)[178]251
  35. 65 a$(2)[178]"  peek(NULL)(NULL)str$val(NULL) len(NULL)(NULL)(NULL)(NULL)  ":p(2)[178]1746:r(2)[178]252
  36. 66 a$(3)[178]"   (NULL)val(NULL)(NULL) len(NULL)(NULL)(NULL)(NULL)   ":p(3)[178]1866:r(3)[178]646
  37. 67 a$(4)[178]"    (NULL)val(NULL)(NULL) (NULL)val(NULL)(NULL)   ":a$(5)[178]" (NULL)val(NULL)(NULL)? ((NULL) (NULL)r (NULL)) "
  38. 68 [129]x[178]1[164]4:[153]p$"print#"a$(x):[130]:p[178]1:a[178]0
  39. 69 [129]x[178]1[164]3:[151]p(x)[170]v(x),30:[151]p(x)[170]v(x)[170]54272,1:[130]:[142]
  40. 70 [153]p$"print#"a$(p):p[178]p[170]a:[153]p$"cont"a$(p)
  41. 71 [139]p[178]4 [167] 150
  42. 75 [161]a$:[139]a$[178]""[167]75
  43. 80 [139]a$[178]""[175]p[179]4 [167] a[178]1:[137]70
  44. 81 [139]a$[178]"on"[175]p[177]1 [167]a[178][171]1:[137]70
  45. 82 [139]a$[178]""[175]v(p)[179]15 [167] a[178]1:[137]90
  46. 83 [139]a$[178]"cmd"[175]v(p)[177]0  [167] a[178][171]1:[137]90
  47. 89 [137]75
  48. 90 [151]p(p)[170]v(p),32:v(p)[178]v(p)[170]a
  49. 92 [151]p(p)[170]v(p),30:[151]p(p)[170]v(p)[170]54272,1
  50. 93 [151]r(p),v(p)
  51. 94 [139]p[178]3 [167] [141]40
  52. 95 [139]p[178]2 [167] [141]48
  53. 96 [151] r(p),v(p)
  54. 97 [139] (v(1)[178]v(3)) [167] 100
  55. 99 [137]75
  56. 100 [139] v(p)[170]a[177]15 [167] a[178][171]1
  57. 101 [139] v(p)[170]a[179]0 [167] a[178]1
  58. 115 [137] 90
  59. 150 [153]p$""a$(5);
  60. 160 [161]a$:[139]a$[178]""[167]160
  61. 161 [139]a$[178]"(NULL)"[176]a$[178]"y"[176]a$[178][199](13)[167]200
  62. 162 [139]a$[178]"n"[176]a$[178]"(NULL)"[176]a$[178]"on"[167]170
  63. 165 [137]160
  64. 170 [153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd                on":
  65. 171 [139]a$[178]"on"[167]a[178][171]1:[137]70
  66. 172 [137]75
  67. 200 tb$[178]"list":[153]p$"print#"a$(p)
  68. 201 [153]"list"tb$"ortantantantantantantantantantantantantantantantantantan^";
  69. 202 [153]tb$"list(NULL)def  (NULL)ake selection  list(NULL)";
  70. 203 [153]tb$"list(NULL)print  & press (NULL)val(NULL)(NULL)(NULL)(NULL)  list(NULL)";
  71. 204 [153]tb$"list(NULL)print#  tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(  list(NULL)";
  72. 205 [129]x[178]1[164]8:[153]tb$"list(NULL)                  list(NULL)";:[130]
  73. 220 [153]tb$"list/tantantantantantantantantantantantantantantantantantan"
  74. 225 [151]2023,125:[151]56295,15
  75. 227 p1$[178]""[170]tb$
  76. 230 s$(1)[178]"   (NULL)atn(NULL)val (NULL)val(NULL)(NULL)(NULL)   "
  77. 231 s$(2)[178]"  (NULL)val(NULL)val(NULL) (NULL)val(NULL)(NULL)(NULL)   "
  78. 233 s$(3)[178]"   valstr$right$(NULL) (NULL)val(NULL)(NULL)(NULL)   "
  79. 234 s$(4)[178]"  (NULL)(NULL)right$(NULL) (NULL)(NULL)close(NULL)val(NULL)(NULL)  "
  80. 250 [129]x[178]1[164]4:[153]p1$"print#"s$(x):[130]
  81. 260 p1[178]1:a[178]0
  82. 265 [153]p1$"print#"s$(p1):p1[178]p1[170]a:[153]p1$"cont"s$(p1)
  83. 270 [161]a$:[139]a$[178]""[167]270
  84. 271 [139]a$[178]""[175]p1[179]4 [167]a[178]1:[137]265
  85. 273 [139]a$[178]"on"[175]p1[177]1 [167]a[178][171]1:[137]265
  86. 275 [139]a$[178][199](13) [167] [145]p1 [137] 310,320,325,340
  87. 279 [137] 270
  88. 310 [129]y[178]1[164]3
  89. 311 [141]500:[153]p$"  (NULL)lease insert side"y"of sys(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  90. 312 [153]"    in the drive and press ((NULL)val(NULL)(NULL)(NULL)(NULL)).":[151]2023,32
  91. 313 [161]a$:[139]a$[179][177][199](13) [167] 313
  92. 314 [158]32768:[153]"load"
  93. 315 [141]5000
  94. 317 [139]si[179][177]y [167][158]32768:[153]"load":[141]40:[141]48:[141]50:[141]600:[137]311
  95. 318 [141]6000:[158]32768:[141]40:[141]48:[130]
  96. 319 [141]50:[129]x[178]1[164]4:[151]p(x)[170]v(x),30:[153]p$"print#"a$(x):[130]:[137] 200
  97. 320 [151]251,bk:[151]252,bo:[151]646,te
  98. 321 [129]x[178]1[164]4:[151]p(x)[170]v(x),32:[130]:v(3)[178]te:[141]40
  99. 322 v(1)[178]bk:v(2)[178]bo:v(3)[178]te:[141]48
  100. 323 [129]x[178]1[164]4:[151]p(x)[170]v(x),30:[130]
  101. 325 a[178][171]1:[141]50:[137]70
  102. 340 [139]v(1)[178]bk[175]v(2)[178]bo[175]v(3)[178]te [167] 400
  103. 341 [141] 500
  104. 342 [153]p$"    atnre you sure you want to quit       ";
  105. 343 [153]"  without saving your modifications ?";
  106. 344 [153]"       (NULL)lease select ((NULL))es (NULL)r ((NULL))o.":[151]2023,32
  107. 350 [161]a$:[139]a$[178]""[167]350
  108. 351 [139]a$[178]"n"[176]a$[178]"(NULL)"[167]360
  109. 352 [139]a$[178]"y"[176]a$[178]"(NULL)"[167] 410
  110. 355 [137] 350
  111. 360 [141]500:[141]50:[129]x[178]1[164]4:[151]p(x)[170]v(x),30:[130]:[153]p$"print#"a$(p):
  112. 361 [129]x[178]1[164]4:[153]p$"print#"a$(x):[130]:[137]200
  113. 400 [141]500:[153]p$""
  114. 401 [153]"    atnre you sure you wish to quit?"
  115. 402 [153]"     (NULL)lease enter ((NULL))es or ((NULL))o.":[151]2023,32
  116. 403 [161]a$:[139]a$[178]""[167]403
  117. 404 [139]a$[178]"n"[176]a$[178]"(NULL)"[167]360
  118. 405 [139]a$[179][177]"y"[167]403
  119. 410 [141]500:[153]p$"   (NULL)lease place side 3 of sys(NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  120. 411 [153]"   into your drive and press (NULL)val(NULL)(NULL)(NULL)(NULL)."
  121. 412 [161]a$:[139]a$[179][177][199](13)[167]412
  122. 413 [158]32768:[153]"load":[141] 5000:[158]32768:[141]40:[141]48
  123. 415 [139] si[179][177]3 [167] 410
  124. 420 [158]32768:[153]"load"
  125. 421 [151]53280,6:[151]53281,6
  126. 430 [153]"load(NULL)lease (NULL)ait (NULL)hile (NULL)oading..."
  127. 431 [151]646,[194](53281)
  128. 435 [153]"load"[199](34)"custom ls boot"[199](34)",8":[153]"run"
  129. 440 [151]631,13:[151]632,13:[151]198,2:[128]
  130. 500 [153]p$"cmdcmdon";:[129]x[178]1[164]12:[153]"                                        ";
  131. 501 [130]:[151]2023,32:[153]"                                       ":[142]
  132. 600 [141]500:[153]p$"   (NULL)right$str$val (NULL)(NULL)(NULL) asc(NULL)(NULL)(NULL)str$ - (NULL)(NULL)valatn(NULL)val (NULL)(NULL)(NULL) atnchr$atnright$(NULL)   "
  133. 601 [151]2023,32:[129]d[178]1[164]1500:[130]:[142]
  134. 999 [128]
  135. 1000 [143]   -- get current setup --
  136. 1010 [159]15,8,15,"